%% Gurps testing script
clear all;
skill=3:20;
mod=-5:5;
tries=5000;

for x=1:length(skill)
    for y=1:length(mod)
        success=0;
		for i=1:tries
			if(gurps(skill(x),mod(y)))
				success=success+1;
			end
		end
		prob_grid(y,x)=success/tries*100;
    end
end

[x,y]=meshgrid(skill,mod);
surf(y,x,prob_grid);
xlabel('Mod');
ylabel('Skill');